home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE03 / QUICKREP / QREP091D.ZIP / TESTREP.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1995-07-07  |  2.7 KB  |  108 lines
  1. unit Testrep;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, Quickrep, StdCtrls, DBCtrls, DB, DBTables;
  8.  
  9. type
  10.   TTestReport = class(TForm)
  11.     DemoReport: TQuickReport;
  12.     DataSource1: TDataSource;
  13.     Customer: TTable;
  14.     Title: TQRBand;
  15.     QRLabel1: TQRLabel;
  16.     PageHeader: TQRBand;
  17.     PageNumber: TQRLabel;
  18.     Group1Header: TQRBand;
  19.     Alphabetic: TQRGroup;
  20.     Letter: TQRLabel;
  21.     CustomerCustNo: TFloatField;
  22.     CustomerCompany: TStringField;
  23.     CustomerAddr1: TStringField;
  24.     CustomerAddr2: TStringField;
  25.     CustomerCity: TStringField;
  26.     CustomerState: TStringField;
  27.     CustomerZip: TStringField;
  28.     CustomerCountry: TStringField;
  29.     CustomerPhone: TStringField;
  30.     CustomerFAX: TStringField;
  31.     CustomerTaxRate: TFloatField;
  32.     CustomerContact: TStringField;
  33.     CustomerLastInvoiceDate: TDateTimeField;
  34.     Detail: TQRBand;
  35.     QRDBText1: TQRDBText;
  36.     Summary: TQRBand;
  37.     SummaryLabel: TQRLabel;
  38.     CustCountLabel: TQRLabel;
  39.     QRDBText2: TQRDBText;
  40.     QRDBText3: TQRDBText;
  41.     PageFooter: TQRBand;
  42.     TimeLabel: TQRLabel;
  43.     QRLabel2: TQRLabel;
  44.     QRDBText4: TQRDBText;
  45.     QRShape1: TQRShape;
  46.     procedure PageHeaderBeforePrint(Sender: TObject);
  47.     procedure TitleAfterPrint(Sender: TObject);
  48.     procedure DemoReportBeforePrint(Sender: TObject);
  49.     procedure Group1HeaderBeforePrint(Sender: TObject);
  50.     procedure AlphabeticNeedData(var Value: OpenString);
  51.     procedure DetailBeforePrint(Sender: TObject);
  52.     procedure SummaryBeforePrint(Sender: TObject);
  53.      private
  54.     { Private declarations }
  55.   public
  56.     { Public declarations }
  57.     CustomerCount : Longint;
  58.  
  59.   end;
  60.  
  61. var
  62.   TestReport: TTestReport;
  63.  
  64. implementation
  65.  
  66. {$R *.DFM}
  67.  
  68.  
  69.  
  70. procedure TTestReport.PageHeaderBeforePrint(Sender: TObject);
  71. begin
  72.    PageNumber.Caption:='Page '+InttoStr(DemoReport.PageNumber);
  73. end;
  74.  
  75. procedure TTestReport.TitleAfterPrint(Sender: TObject);
  76. begin
  77.    PageHeader.Enabled:=True;
  78. end;
  79.  
  80. procedure TTestReport.DemoReportBeforePrint(Sender: TObject);
  81. begin
  82.    PageHeader.Enabled:=False;
  83.    CustomerCount:=0;
  84.    TimeLabel.Caption:='Printed at '+TimeToStr(Time);
  85. end;
  86.  
  87. procedure TTestReport.Group1HeaderBeforePrint(Sender: TObject);
  88. begin
  89.    Letter.Caption:=copy(CustomerCompany.AsString,1,1);
  90. end;
  91.  
  92. procedure TTestReport.AlphabeticNeedData(var Value: OpenString);
  93. begin
  94.    Value:=copy(CustomerCompany.Asstring,1,1);
  95. end;
  96.  
  97. procedure TTestReport.DetailBeforePrint(Sender: TObject);
  98. begin
  99.    CustomerCount:=CustomerCount+1;
  100. end;
  101.  
  102. procedure TTestReport.SummaryBeforePrint(Sender: TObject);
  103. begin
  104.    CustCountLabel.Caption:=IntToStr(CustomerCount);
  105. end;
  106.  
  107. end.
  108.